1 Public NotInheritable Class frmAbout
2
3     Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
4         
' Set the title of the form.
5         Dim ApplicationTitle As String
6         If My.Application.Info.Title <>
"" Then
7             ApplicationTitle = My.Application.Info.Title
8         Else
9             ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
10         End If
11         Me.Text = String.Format(
"About {0}", ApplicationTitle)
12         
' Initialize all of the text displayed on the About Box.
13         
' TODO: Customize the application's assembly information in the "Application" pane of the project
14         
' properties dialog (under the "Project" menu).
15         Me.LabelProductName.Text = My.Application.Info.ProductName
16         Me.LabelVersion.Text = String.Format(
"Version {0}", My.Application.Info.Version.ToString)
17         Me.LabelCopyright.Text = My.Application.Info.Copyright
18         Me.LabelCompanyName.Text = My.Application.Info.CompanyName
19         Me.TextBoxDescription.Text = My.Application.Info.Description
20     End Sub
21
22     Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
23         Me.Close()
24     End Sub
25
26 End Class


Gõ tìm kiếm nhanh...